Amiga Plus 1995 #5 & #6/Amiga Plus CD - 1995 - No. 5 and 6.iso/pd/grafik/scancenter/install_deutsch

Text File | 1995-08-05 | 5KB | 199 lines

; Installerscript für das ScanCenter © Tim Pühmeier
(transcript "Installation vom ScanCenter")

(complete 0)
        (message "\n\n Scancenter Installerscript \n"
                 "Bitte lesen sie unbedingt \n"
                 "die Dokumentation\n\n"
                 "ScanCenter ©1995 Uwe Konrad\n"
                 "Alle Rechte vorbehalten.\n"
        )

(set #ZielOrdner
    (askdir
        (prompt "Pfad in dem das ScanCenter installiert\n werden soll Es wird kein Verzeichnis erstellt!" )
        (help    @askdir-help)
        (default @default-dest)
        (disk)
        (newpath)
    )
)

(set @default-dest #ZielOrdner)

(set Processor
        (askchoice
                (prompt "Bitte wählen Sie entsprechend\n"
                     "des installierten Prozessors eine\n"
                     "Programmversion aus\n")
                (help @askchoice-help)
                (choices "MC68040 FPU" "MC68020/030 FPU" "MC68020/030/040" "MC68000")
                (default 0)
        )
)

(if (= Processor 0)
    (copyfiles
        (prompt "Kopiere 68040 FPU Version ...")
        (help @copyfiles-help)
        (source "ScanCenter.040FPU")
        (dest #ZielOrdner)
        (newname "ScanCenter")
        (confirm)
    )
)
(if (= Processor 1)
    (copyfiles
        (prompt "Kopiere 68020/030 FPU Version ...")
        (help @copyfiles-help)
        (source "ScanCenter.020030FPU")
        (dest #ZielOrdner)
        (newname "ScanCenter")
        (confirm)
    )
)
(if (= Processor 2)
    (copyfiles
        (prompt "Kopiere 68020/030/040 Version ...")
        (help @copyfiles-help)
        (source "ScanCenter.020030040")
        (dest #ZielOrdner)
        (newname "ScanCenter")
        (confirm)
    )
)
(if (= Processor 3)
    (copyfiles
        (prompt "Kopiere 68000 Version ...")
        (help @copyfiles-help)
        (source "ScanCenter.000")
        (dest #ZielOrdner)
        (newname "ScanCenter")
        (confirm)
   )
)

(complete 25)

(set Icon
        (askchoice
                (prompt "Welche Farbtiefe hat Ihre Workbench\n")
                (help @askchoice-help)
                (choices "4 Farben" "8 Farben" "16 Farben" "256 Farben")
                (default 0)
        )
)

(if (= Icon 0)
    (copyfiles
        (prompt "Kopiere 4 Farben Icon ...")
        (help @copyfiles-help)
        (source "Piktogramme/WB4.info")
        (dest #ZielOrdner)
        (newname "ScanCenter.info")
        (confirm)
    )
)
(if (= Icon 1)
    (copyfiles
        (prompt "Kopiere 8 Farben Icon ...")
        (help @copyfiles-help)
        (source "Piktogramme/WB8.info")
        (dest #ZielOrdner)
        (newname "ScanCenter.info")
        (confirm)
    )
)
(if (= Icon 2)
    (copyfiles
        (prompt "Kopiere 16 Farben Icon ...")
        (help @copyfiles-help)
        (source "Piktogramme/WB16.info")
        (dest #ZielOrdner)
        (newname "ScanCenter.info")
        (confirm)
    )
)
(if (= Icon 3)
    (copyfiles
        (prompt "Kopiere 256 Farben Icon ...")
        (help @copyfiles-help)
        (source "Piktogramme/WB256.info")
        (dest #ZielOrdner)
        (newname "ScanCenter.info")
        (confirm)
    )
)

(complete 50)

(set Scsi
        (askstring
                (prompt "Bitte geben Sie den Devicenamen \n"
                        "Ihres Hostadapters ein:\n")
                (help @askstring-help)
                (default "scsi.device")
        )
)


(set Unit
        (asknumber
                (prompt " Bitte geben Sie die Scsi-Unit Ihres HP-Scanners ein: ?\n")
                (help @string-help)
                (range 0 7)
                (default 6)
        )
)
(tooltype
    (prompt "Ändere Tooltypes des Icons")
    (help @tooltype-help)
    (dest (tackon #ZielOrdner "ScanCenter"))
    (settooltype "DEVICE" Scsi)
    (settooltype "UNIT" (cat Unit))
    (setdefaulttool (tackon #ZielOrdner "ScanCenter"))
    (confirm))

(complete 60)

(makedir (tackon #ZielOrdner "Catalogs")
    (prompt "Erstelle Catalag Order")
)

(copyfiles
        (prompt "Kopiere Katalogfiles")
        (help @copyfiles-help)
        (source "Catalogs")
        (dest (tackon #ZielOrdner "Catalogs"))
        (confirm)
        (all)
)

(copyfiles
        (prompt "Kopiere ScanCenter.guide")
        (help @copyfiles-help)
        (source "")
        (dest #ZielOrdner)
        (pattern "#?.guide")
        (infos)
        (confirm)
)
;(copylib
;        (prompt "Kopiere mulitpic.library nach libs:")
;        (help @copylib-help)
;        (source "libs/multipic.library")
;        (dest "libs:")
;        (confirm))

(complete 95)

(message "ACHTUNG\n"
        "Vergessen Sie nicht den \"Scanbuffer\"\n"
        "auf ein Festplattenlaufwerk zu legen.\n"
        "Voreingestellt ist \"t:rawfile\".\n"
        "Näheres dazu im \"ScanCenter.guide\" unter\n"
        "\"Das Systemfenster\""
)

(complete 100)